Procedure UntotalDays(Total:LongInt; Var Date:TimeDate);

    Date.Hour,  Date.Min,  Date.Sec   and  Date.ms  are  all  set  to  0.
    Date.WeekDay  is  also  set  to   0,   see   DayOfWeek  if  you  want
    this set correctly.

    Date.Year,   Date.Month   and   Date.Day   are   set   to   the  date
    corresponding to the total  number  of  days  in  Total.  That is, if
    Total  is  1,  Date  is  set   to   1/1/0,  00:00:00.   If  Total  is
    4, Date is set to 4/1/0,  00:00:00.   This  is the opposite procedure
    to TotalDays.